home *** CD-ROM | disk | FTP | other *** search
/ 501 Great Games / 501 Great Games - Volume One (2001)(Guildhall Leisure Services).iso / GLOBAL MINES / GlobalMines.exe / 0 / RCDATA / TGLOBALMINES / TGLOBALMINES.txt
Encoding:
Text File  |  1998-02-23  |  3.9 KB  |  170 lines
  1. object GlobalMines: TGlobalMines
  2.   Left = 521
  3.   Top = 282
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'Global Mines'
  7.   ClientHeight = 144
  8.   ClientWidth = 132
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -10
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Menu = MainMenu
  15.   Position = poScreenCenter
  16.   Scaled = False
  17.   OnCreate = FormCreate
  18.   OnDestroy = FormDestroy
  19.   OnMouseDown = FormMouseDown
  20.   OnMouseMove = FormMouseMove
  21.   OnMouseUp = FormMouseUp
  22.   OnPaint = FormPaint
  23.   PixelsPerInch = 96
  24.   TextHeight = 13
  25.   object FlagBevel: TBevel
  26.     Left = 7
  27.     Top = 5
  28.     Width = 30
  29.     Height = 19
  30.   end
  31.   object TimeBevel: TBevel
  32.     Left = 90
  33.     Top = 5
  34.     Width = 30
  35.     Height = 19
  36.   end
  37.   object FlagLabel: TLabel
  38.     Left = 8
  39.     Top = 8
  40.     Width = 28
  41.     Height = 15
  42.     Alignment = taCenter
  43.     AutoSize = False
  44.     Caption = '00'
  45.   end
  46.   object TimeLabel: TLabel
  47.     Left = 91
  48.     Top = 8
  49.     Width = 28
  50.     Height = 13
  51.     Hint = 'Time played'
  52.     Alignment = taCenter
  53.     AutoSize = False
  54.     Caption = '00'
  55.   end
  56.   object TopLine: TBevel
  57.     Left = 0
  58.     Top = 0
  59.     Width = 138
  60.     Height = 2
  61.     Shape = bsTopLine
  62.   end
  63.   object Button: TSpeedButton
  64.     Left = 53
  65.     Top = 5
  66.     Width = 21
  67.     Height = 19
  68.     Glyph.Data = {
  69.       EE000000424DEE0000000000000076000000280000000F0000000F0000000100
  70.       0400000000007800000000000000000000001000000010000000000000000000
  71.       80000080000000808000800000008000800080800000C0C0C000808080000000
  72.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770000077
  73.       777777700BBBBB007777770BBBBBBBBB077770BBB00000BBB07770BB0BBBBB0B
  74.       B0770BB0BBBBBBB0BB070BB0BBBBBBB0BB070BBBBBBBBBBBBB070BBBBBBBBBBB
  75.       BB070BBBB0BBB0BBBB0770BBB0BBB0BBB07770BBB0BBB0BBB077770BBBBBBBBB
  76.       077777700BBBBB0077777777700000777770}
  77.     OnClick = InitGame
  78.   end
  79.   object MainMenu: TMainMenu
  80.     Left = 96
  81.     Top = 80
  82.     object GameMenu: TMenuItem
  83.       Caption = '&Game'
  84.       object NewGame: TMenuItem
  85.         Caption = '&New Game'
  86.         ShortCut = 113
  87.         OnClick = InitGame
  88.       end
  89.       object N2: TMenuItem
  90.         Caption = '-'
  91.       end
  92.       object Beginner: TMenuItem
  93.         Caption = '&Beginner'
  94.         Checked = True
  95.         RadioItem = True
  96.         OnClick = CustomLevelClick
  97.       end
  98.       object Intermediate: TMenuItem
  99.         Caption = '&Intermediate'
  100.         RadioItem = True
  101.         OnClick = CustomLevelClick
  102.       end
  103.       object Expert: TMenuItem
  104.         Caption = '&Expert'
  105.         RadioItem = True
  106.         OnClick = CustomLevelClick
  107.       end
  108.       object CustomLevel: TMenuItem
  109.         Caption = '&Custom...'
  110.         RadioItem = True
  111.         OnClick = CustomLevelClick
  112.       end
  113.       object N1: TMenuItem
  114.         Caption = '-'
  115.       end
  116.       object Marks: TMenuItem
  117.         Caption = '&Marks (?)'
  118.         Checked = True
  119.         OnClick = MarksClick
  120.       end
  121.       object Settings: TMenuItem
  122.         Caption = '&Settings...'
  123.         OnClick = SettingsClick
  124.       end
  125.       object N4: TMenuItem
  126.         Caption = '-'
  127.       end
  128.       object HighscoreLabel: TMenuItem
  129.         Caption = '&Highscores...'
  130.         OnClick = HighscoreLabelClick
  131.       end
  132.       object N3: TMenuItem
  133.         Caption = '-'
  134.       end
  135.       object Exit: TMenuItem
  136.         Caption = 'E&xit'
  137.         OnClick = ExitClick
  138.       end
  139.     end
  140.     object HelpMenu: TMenuItem
  141.       Caption = '&Help'
  142.       object Help: TMenuItem
  143.         Caption = '&Help...'
  144.         OnClick = HelpClick
  145.       end
  146.       object HowToRegister: TMenuItem
  147.         Caption = '&How To Register...'
  148.         OnClick = HowToRegisterClick
  149.       end
  150.       object Register: TMenuItem
  151.         Caption = '&Register...'
  152.         OnClick = RegisterClick
  153.       end
  154.       object N5: TMenuItem
  155.         Caption = '-'
  156.       end
  157.       object About: TMenuItem
  158.         Caption = '&About...'
  159.         OnClick = AboutClick
  160.       end
  161.     end
  162.   end
  163.   object Timer: TTimer
  164.     Enabled = False
  165.     OnTimer = TimerTimer
  166.     Left = 96
  167.     Top = 112
  168.   end
  169. end
  170.